home *** CD-ROM | disk | FTP | other *** search
/ Amiga Collections: Franz PD / Franz PD Disk #015 (19xx)(Amiga User Group Deutschland e.V.).zip / Franz PD Disk #015 (19xx)(Amiga User Group Deutschland e.V.).adf / ViceTracer / Tracer-Slideshow < prev    next >
Text File  |  1986-10-22  |  2KB  |  107 lines
  1. REM Tracer-Slideshow
  2. REM
  3. REM   written by
  4. REM AMIGA - VICE ©
  5. WINDOW CLOSE 1:CLEAR,30000,10000
  6. SCREEN 2,320,256,4,1:WINDOW 2,,,0,2
  7. DEFINT I,j,x,y,f,n:DIM ca(3):DIM grh(81)
  8. GOSUB farben1
  9. PRINT
  10. PRINT
  11. PRINT"          A M I G A - V I C E ©"
  12. FOR I=1 TO 10000
  13. NEXT I
  14. CLS
  15. PRINT
  16. PRINT
  17. PRINT"          p r e s e n t i e r t
  18.  
  19. FOR I=1 TO 10000
  20. NEXT I
  21. CLS
  22. PRINT
  23. PRINT"     eine ROGER HASSLER  Produktion"
  24. FOR I=1 TO 10000
  25. NEXT I
  26. CLS
  27. PRINT
  28. PRINT
  29. PRINT"      ***************************** "
  30. PRINT"      *   VICE-TRACER SLIDESHOW   * "
  31. PRINT"      ***************************** "
  32. PRINT
  33. PRINT"     Der Spiegel der Wirklichkeit ...  "
  34. FOR I=1 TO 17000
  35. NEXT I
  36. CLS
  37. PRINT
  38. PRINT
  39. PRINT"      ****************************** "
  40. PRINT"      *   VICE-TRACER SLIDESHOW    * "
  41. PRINT"      ****************************** "
  42. PRINT
  43. PRINT"              geschrieben von "
  44. PRINT                
  45. PRINT"           A M I G A - V I C E ©"
  46. PRINT
  47. PRINT
  48.  
  49. px=312:py=252:ngg=25:nn$="-l"
  50. DIM g#(ngg)
  51. INPUT"Show (j/n) ";A$
  52. IF A$="j" THEN GOTO show2 ELSE SYSTEM
  53. farben1:
  54. WINDOW OUTPUT 2
  55. PALETTE 0,0,0,0:PALETTE 1,0,0,.4:PALETTE 2,0,0,.6:PALETTE 3,0,0,.8
  56. PALETTE 4,0,0,1:PALETTE 5,0,.3,0:PALETTE 6,0,.4,0:PALETTE 7,0,.6,0
  57. PALETTE 8,0,.8,0:PALETTE 9,0,1,0:PALETTE 10,.2,0,0:PALETTE 11,.4,0,0
  58. PALETTE 12,.6,0,0:PALETTE 13,.8,0,0:PALETTE 14,1,0,0:PALETTE 15,1,1,1
  59. COLOR 4,0
  60. RETURN
  61. farben2:
  62. WINDOW OUTPUT 2
  63. a1=2/15:a2=5/15:a3=7/15:a4=7/15:a5=8/15
  64. PALETTE 16,a1,a1,a1:PALETTE 17,a2,a2,.4:PALETTE 18,a3,a3,.6:PALETTE 19,a4,a4,.8
  65. PALETTE 20,a5,a5,1:PALETTE 21,a1,.2,a1:PALETTE 22,a2,.4,a2:PALETTE 23,a3,.6,a3
  66. RETURN
  67. loadbild:
  68. BEEP
  69. yh=ym-ya:IF yh=0 THEN yh=py
  70. OPEN"I",#1,"Picture/"+na$+nn$,10000
  71. I=0
  72. WHILE NOT EOF(1)
  73. FOR j=0 TO ngg
  74. g#(j)=CVD(INPUT$(8,#1))
  75. NEXT j
  76. PUT(0,I),g#
  77. I=I+1
  78. WEND
  79. FOR I=1 TO 12000
  80. NEXT I
  81. CLOSE#1
  82. show2aa:
  83. IF BILD1$="ja" THEN GOTO Bild2 
  84. IF Bild2$="ja" THEN GOTO Bild3 ELSE GOTO show2
  85.  
  86.  
  87. Bild2:
  88. Bild2$="ja"
  89. BILD1$="nein"
  90. na$="Bild4":GOTO show2a
  91. Bild3:
  92. Bild2$="nein"
  93. na$="Bild5":GOTO show2a
  94. show2:
  95. BILD1$="ja"
  96. na$="Bild3":GOTO show2a
  97. show2a:
  98. SCREEN 2,321,257,5,1:WINDOW 2,,(0,0)-(312,243),0,2
  99. GOSUB farben1:GOSUB farben2:GOSUB loadbild
  100. SLEEP:SLEEP:SLEEP:SLEEP
  101. GOTO show2aa
  102.  
  103.  
  104.  
  105.  
  106.  
  107.